home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ FileSystem NumericTail.xpl < prev    next >
Text File  |  2001-07-07  |  2KB  |  47 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="System\File System\Windows 9x/ME Options\Misc"
  5. "NAME"="DOS Numeric tail (~)"
  6. "VERSION"="2.00"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Numeric tails in all short (8.3) filenames"
  10. "WARNING"="1"
  11. "DESCRIPTION 1"="Normally (i.e., when the box is checked) every file with a long filename (LFN) is assigned a short 8.3 filename (SFN) whose 8-character portion ends with a so-called numeric tail ("~n")."
  12. "DESCRIPTION 2"="Changing this setting (i.e., clearing the checkbox) will cause numeric tails to be used only where necessary for uniqueness."
  13. "DESCRIPTION 3"="Changing this setting can lead to SERIOUS problems. To cite just two examples of what can happen if you clear the checkbox:"
  14. "DESCRIPTION 4"="-- Several .INF files and Setup programs (including some from Microsoft) may fail because they refer to folders such as "Program Files" by their assumed SFNs (such as PROGRA~1)."
  15. "DESCRIPTION 5"="-- If you try to use DOS to copy a pair of files with names such as ContractEdit.frm and Contract.frm (in that order), you'll find that the second one can't be created in the destination folder.  That's because the first new file created has already been assigned CONTRACT.FRM (rather than the usual CONTRA~1.FRM) as its SFN."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"="Description fields edited by fdhuber@hotmail.com"
  20.  
  21.  
  22. sP = "HKLM\System\CurrentControlSet\Control\FileSystem\NameNumericTail"
  23.  
  24. Sub Plugin_Initialize
  25.    i = RegReadValue(sp)
  26.    If IsEmpty(i) Then
  27.       SetUIElement 1, True
  28.    End If
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex, ElementSubIndex)
  32.    b = GetUIElement(1)
  33.    If b = True Then ' I want to have CONTRA~1.FRM
  34.       i = RegReadValue(sp)
  35.       If IsEmpty(i) = False Then
  36.          Call RegDeleteValue(sp)
  37.       End If
  38.    Else ' No, thank you
  39.       Call RegWriteValue(sp, "00", 3)
  40.    End If
  41.  
  42.    Restart
  43. End Sub
  44.  
  45. Sub Plugin_Terminate
  46. End Sub
  47.